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MARABRARABRBRARAAASLARAAAARASAARARASAARSEAEERRAR ASAE RRR AAR RR RS EARS RRR R SERA S ASS GO 


COPYRIGHT o> 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS. RESER VED. 


OFTWARE IS gE oe neees A LICENSE AND MAY BE yee? AND cor ite 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ABOVE pith NOTICE. THIS SO FTW WARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


$$ 
Y | 
LUS 
IES 
ER 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeRPORAT itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


:* a 
'* ® 
: ® 
** * 
‘* sd 
** ® 
‘® * 
:* tt 
** ® 
*® ® 
:* TRANSFERRED. 2 
: * 
**® ® 
:® ® 
** ® 
-* *® 
** *® 
:* © 
:* * 
:* * 
** * 
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: "ABSTRACT: 
REAL base to REAL power. 
Floating overflow can occur 
Undefined 1) *Regetive bes can occur if: 


geget ive base 
ase and power is 0 or negative. 


SDOOOOSSOOSOSOSOSOSSOSOSSOSOSSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOOSOSOSOOSOSO 


VERSION: 2 
; HISTORY: 


: ¢ AUTHOR: 
Bob Hanek, 3-Mar-83: Version 2 


; ; MODIFIED BY: 


WRI 9 OOO NAME WIN | OOD NAME WIN HO OD NAME WN SO OD NAME WI OODONOAU Ewin 


, FACILITY: Language support Library - user callable 
‘ 
° | 
; | 
; | 


SDOSDOOODOOOSOOOSOSOSOSOOSOOSOOSOOOOOOOCOOOOOOO OOO OOOOO 
ONE EERE AES PWN inononononononononony 2 2 2 Ss 


asso tity 


N 8 
+f REAL ower routine 16-SEP-1984 02:04:25 VAX/VMS Macro V04-00 P 
; Detailed current “edit history aes 9:98:83 MTHRTL.SRCJOTSPOWRR.MAR; 1 _—" 


-SBTTL HISTORY 3; Detailed current edit history 


Edit history for Version 2 of OTSSPOWRR 


oy N New algorithm implemented. veh “1 y a = 
¢ Make INDEX table a local iaple aha}: 
05 Change reference of INDEX(R2) to 4 INDEX 3) mm ezehay= -1983 
04 hdged” reterence f AL TABLE E(Rx) to be A_T LECRx LEB 26-May-1983 
05 Adde ~-° OTL ae Rx TRx instructions. to : nite the value of Rx back 
from 'indext2*3' to ‘index’ before A_TABLELRx)] is referenced. The 
INDEX wast not scaled back to yield Slant of ‘index’ instead o 

indext2* soe ayes the mathematics of the code uege es does need the 
value of index*2*3 in several computes tone. JCwW 198 
2-006 Corrected a bug involving a SYS_F_FLTOVF_F error during a MULD RO, R2. 

Code was added to see if a MTH Overflow message or a zero should be 

returned. JCW 19-Jan-1984 
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00000004 
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sre 


C0234 


0000 
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~SBTTL DECLARATIONS 


INCLUDE FILES: 


EXTERNAL SYMBOLS: 


‘ GBL 

sEXTRN = MTHSK_UNDEXP 
-EXTRN MTHSK_FLOUNDMAT 
.EXTRN MTHSK-FLOOVEMAT 
-EXTRN MTHSSSIGNAL 


MACROS: 
SSFDEF 


; EQUATED SYMBOLS: 


base = 4 
exp = 8 
ACMASK = “M< R2, R3, R4> 
C2 = Lx3BGEL3EG 
C4 = *XC023439 
OWN STORAGE: 
none 
PSECT DECLARATIONS: 
.PSECT _OTSSCODE PIC,SHR, 


; CONSTANTS: 


> The INDEX table gives the byte offset 
3; the proper choice of ‘a.’ 


INDEX: .BYTE  ‘*x00, “x00, “x00, “x08, 
“BYTE ‘x08, “x10. “x10, *x10; 
“BYTE “x18, “x18. “x18, *x18; 
-BYTE "iro, “Keo.. “a b° “x20, 
“BYTE “X28, “X28. “x30. *x30, 
.BYTE “X30, “X30, “X38, “x38, 
BYTE “x38, “x40, “x40, *x40, 
"BYTE “X40; “X48; “X48. *Xx48- 
-BYTE “x48, “x50, “x50, *x50, 
-BYTE *x50, “x50, *x58, *x58, 
.BYTE “x58, *x58, “x58, *x60, 
[BYTE “X60; “x60; *x60. *x60; 


SSEp= 1986 14 
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Undefined exponentiation 
Under flow 

Over flow 

Math error routine 


; Define stack frame symbols 


base input formal - by-value 
exponent input formal = by-value 
; register saving mask 


LONG, EXE ,NOWRT 
3; program section for OTS$ code 


into the A_TABLE necessary to select 


“x08, “x08, “x08, “x0 
“x10, “x10, “x10, “x1 
“x18, “X20, “X20, “x20 
“X28, “X28, “x Be 7 
“x Y “x 4 “x ss “y 
“X38, “X38, “X38, “Xx 
“X40, “X40, “X40, “X4 
OXGB. SKGB. ONGB. OX 
“x58, x8 e Ri “x5 
“X60, “X60, “x60, “x60 
“X68, “X68, “X68, “X68 


9 


586M" 


3 “x78, “X78, *x78. 
-BYTE “°Xx78, *X78. “x78. *x8 


1967295C AA3B44B8 CO: QUAD *X1967295CAA3B44B8 


; The ith entry of the A_TABLE contains 


A.TABLE:.QUAD 0900000000094 
"QUAD “XG re OBS 


SERRE EEE : 


ma 
ro 
oP, 
> 
oO 


igi orca 
BBAdSi 8p ; 


1 
138 
134 
! 5 
: 
139 
140 
123 
i 
cle 9 145 3 
11¢ § D34 - 146 QUAD X110373ABC3D34091 
F04098 A 14 QUAD “*XB8A9518D Se 98 
81 1¢609) F53 rt Ht 198 QUAD anes 1560 1F 5324 H 
5139A981 CERSs A 08 14 . QUAD 51 ave lecpes A 
ay eetee ee 40A Bce 150 QUAD * ee tt 40AD 
pee F L¢ 3408 OC 151 QUAD “XDE 3F904F 34085 
0c yee OBA34 g +3 136 -QUAD *xO0C gor 884 4080 
11 ly C 0D 15 QUAD “*x0608115 § gAegcs 
1151F 2468C40C OED 154 QUAD “*X8481151F 24 CoRce 
D6BCAD6 44°F (40D 0&8 155 QUAD “X9D6BCAD644F (40D 
BER SESCA 35 bes ore 136 QUAD aR SPR SE SERCEDE ODED 
ge 9E70D OCSs EA OOF 15 QUAD %x2439E7DD QCOeceA 
6CC15246 D40F5 0100 158 QUAD “x SESS D4OF5 
00000000 100 198 123 QUAD %*x0000000000004100 
SOFC 357 110 161 EXPTAB: .LONG onaet Cases 
2068 876 0114 16¢ -LONG *%*x00663876 
2183¢B1 118 16 -LONG “%*xX72183CB1 
9625B19D 011C 164 -LONG ‘%X9625B19D 
00000004 0120 165 EXPLEN = <.-EXPTAB>/4 


¢ 
DECLARATIONS Powe” ToUtine "S-Sep=19be 94:98:84 


Bie “90, “X90, “490. a: ; 


the value 2°(i/16) 


Sete Se Se He Se Se Se Se Se Se Se Se Se Se Be Se 
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SOOOCOCOCOSCOOCOOCOCOOCOC OOOO OOOOOOOOOOO OOOO OOOOOOOO 


PRONININ “DOO DOGDOOOO OOOO OOO OO OW 09090909 0909 SIN NINN NNN NOOO 
WR OOO NA NE UA 9 OD NONE WIN SO O00 SAU EWI 0 OO NO UNE WI OOO NOUNS UL" OOO 


POPIPOPOPOPOPIMIPOPONOPIPIPOPIPIPIPIPIPINIDINYDYS 9 2 


SOOOOCOOCOOOOCOOCOCOCOCOO COCO OOOOOOOCOOOoOoOoOOo 


09 
16-SEP-1984 :04:25 VAX/VMS Macro v04-00 2 
eo REAL giving REAL res GosePoions $7258;8% FATARTe enesoreeoume.mar:1 ee 


~SBTTL OTSSPOWRR = REAL to REAL giving REAL result 


3; ++ 

; FUNCTIONAL DESCRIPTION: 

OTSSPOWRR - REAL result = REAL base ** REAL exponent 
The REAL result is given by: 


base exponent result 

= 0 > 0.0 

= 8 = Undefined Exponentiation 
= <0 Undefined Exponentiation 
<0 any Undefined Exponentiation 
>0 >0 2*Cexp*log2(base)] 

>§ #80 i.0 abies 

> 0 <0 2*Cexp*log2(base)] 


Floating Overflow and Underflow can occur. 
Undefined we oy by pe can occur if: 
1) base is 0 and exponent is 0 or negative 
2) base is negative 


The basic approach to computing x*ty as 2“Cy*log2(x)] is the following: 


Step 1: Compute loge ts) to sufficient precision to guarantee an 
accurate final result (see below. 

Step 2: Compute ytlog2(x) to at least the accuracy that log2(x) 
was coneuaey- 

Step 3: Evaluate 2“Cy*log2(x)] accurate to the precision of the 
datatype in question. 


To determine the accuracy to which log2(x) must be computed to, write 
y*logets) as 1 + h, where I is the integer closest to ytlog2(x5, and 
= ytlog2(x) - I (Note that ih! =< 1/2.) Then 


2*Cytlog2(x)] = 2°¢(1 + h) = (2*1)#(2*h). 


ince the factor 2°1 can be incorporated into the final result by an integer 
ddition to the exponent field, we can assume that the multiplication by 

“I incurs no error. Thus the total error in the final result is determined 
Y how accurately 2*h can be computed. If the final result has p fraction 
ts, we would Like h to have at least p good bits. In fact it would be 

ice if h had a few extra gyard bits, say 4. Consequently, we would Like 

h to be accurate to p + 4 bits. 


Ss 
2 
D 


et e be the number of bits allocated to the exponent field of the data type 
nm question, If I requires more that e bits to represent. then overflow or 
underflow will occur, Therefore if the product ytloge(x) has e + p + 4 good 
bits, the final result will be accurate. This requires that log2(x) be 
computed to at least p + e + 4 bits. 
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Since log2(x) must be computed to more bits of precision than is available 


in the base data type, either the next level of precision or multi-precision 


arithmetic must be used. We begin by writing 


n+1 
log2(x) = log2(b) + > clanetyen® 


n= 
Where c(1) = 1, and z' = (2/Lin2)0(z-b)/(z+b)]. Hence 


AL ent 
log2(x) = log2(b) + 2z' + > cl2n+1)ez 
nzT 
= log2(b) + z' + plz"). 
Note that if p(z") is computed to P bits, and log2(b) + z' is computed 
to pte+4 bits and overhangs p(z') by e+4 bits, the required accuracy will 


be achieved. Consequently, the essential tricks, are to pick b such that 
the overhang can be achieved and to compute log2(b) + z' to p + e + 4 bits. 


CALLING SEQUENCE: 
power.wf.v = OTSSPOWRR (base.rf.v, exponent.rf.v) 


INPUT PARAMETERS: 
Base and exponent parameters are call by value 


IMPLICIT INPUTS: 
none 


OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
none 


FUNCTIONAL VALUE: 
OTSSPOWRR - REAL base ** REAL power 


SIDE EFFECTS: 


SIGNALS MTHSK_FLOOVEMAT if floating overflow. 

SIGNALS MTHSK_FLOUNDMAT if floating underflow. ; 
SIGNALS MTHSK_UNDEXP (82 = ° UNDEFINED EXPONENTIATION') if 
1) base is 0 and exponent is 0 or negative 

) base is negative 


F 9 
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001C -ENTRY OTSSPOWRR, ACMASK ; standard call-by-reference entry 


; disable DV (and FU) 


; Move x to RO. If x <0, or x = 0 and y =< 0, return "UNDEFINED 
; EXPONENTIATION' error condition, otherwise attempt to compute xtty 
50 04 AC 50 MOVF base(AP), RO : RO <-- x 
1A 146 BGTR EF INED : If x > 0 attempt to compute xtty 
07 #19 BLSS UNDEF INED ; Branch to error code for x < 0 
51 08 AC Hh MOVE ore et R1 ; R1 <-- y (Note that x = 0) 
Qi. 61 BLEQ UNDEF INED ; Branch to error condition if y =< 0 


: If precesetn continues here, this implies that x = 0 and y > 0. Return 
3 with xtty = 


04 RET ; Return 


: If gorse continues here, this implies that an undefined exponentiation 
3 was attempted. Signal error and return 


UNDEF INED: 
MOVZWL #*x8000, RO 

MOVZBL #MTHSK_UNDEXP, -(SP) 

CALLS #1, G*ATHSSSIGNAL 


50. 8000 8F 3C 
0O'8F 9A 
00000000'GF 01 FB 


3; RO <-- Reserved operand 

; Put error code on stack 

; Convert error number to 32 bit 

: condition code and signal error. 

; NOTE: Second argument is not re- 

3 quired since there is no JSB entry. 


RET Return 


If processing continues here will attempt to compute x*ty as 2“Cy*log2(x)]. 
8 he oY. srorenaree an integer k and a real mumber f such that x = 2“kf, 
an a . 


DEFINED: 
54 50 FFFF8O7F 8F CB BICL3 #*XFFFF8O7F, RO, R4 3; R4 <== 2°7*(biased exponent of x) 
54 00004080 HH Cs SUBL #*xX4080, R4 3 RG <w= 2*7*k = 2°7*(exponent_of_x - 1) 
50 ee SUBL R4, R 3 RO <-- f = 2e(fraction field of x) 


; We are now roedy to compute log2(x). This computation is based on the 
; following identity: 


in(2)/___. 2jel fra 
; We begin 4 | determining a as b*i, where b = 2°(1/16) and i is between 0 
; and 16 inclusive. Specifically i is chosen by table look-up so that 

; the magnitude of z is minimized. Since log2(a) = i/ 


ii a ed a a a 8 a a 


POPPA TTT TOTES BS SB EEE EEE EWI III rn nnnnonononononononony 


PPE PPE EEE PNVNNMNNNNININ 2 BO | 2 QOTOOOOM F OO 
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; 2 1 
> log2(2*k*f) = k + log2(a) + ----- > sw-~ 2°(2j+1), where 2 = ----- . 


16, we may write 


ago 


52 50. OFF 


52. 50 FFI6 CF42 


50 0080 8F 
3 


MOOMMOW 
ono" 


50 08 AC 
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OTSSPOWRR = REA 


rae! 
154 ; 
154 40 
154 4] 
154 tg 
154 4 
154 44 
d0 13 45 
¢ 157 rf 
Rae 
C 188 Pr: 
16D 50 
0160 51 
016D 26 
16D 5 
16D 54 
63 016D 55 
0174 56 
AO 0174 57 
62 0179 58 
66 017C 59 
017F 60 
017F 61 
017F 6¢ 
017F 6 
017F 64 
017F 65 
45 OI7F 66 
45 0183 67 
40 0188 68 
4h 36 69 
D 19 70 
6 198 71 
64 019D Me 
01A0 7 
01A0 74 
01A0 75 
01A0 
1A0 7 
4E im ? 
DO OIA 7 
60 He 0 
1A 1 
1A9 Ht 
1A9 
1A9 4 
1A9 5 
Q1A9 $ 
50 g148 
1AD 8 
1AD $4 
1AD 0 
1AD 91 
1AD 3 
1AD 9 
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Log2(2*k*f) = k + 1/16 + z*p(z*2). 
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Note that in order to insure an accurate result, log2(2*k*f) must be computed 


; accurately to 36 bits. This will require some double precision arithmetic. 


EVAL_LOG2: 
MOV #0, Ri 
a*XFFEFEFBO 


MOVE INDEXCR2], R2 


ADDL 2, R 
ROTL #=%, R2, R2 
SUBD3 A_TABLECR2], 
ADDW #*x80, RO 
SUBD 2, RO 

DIVD RO. R2 


Compute 2°7*z*p(2*2) = 


; Compute log2(x) = 


™~ 
NO 
° 


CVTLF =R4, RO 
MOVL #0, R1 
ADDD RO, R2 


: We can now compute xtty 
3 ytlog2(x). (Note that R 


MOVF exp(AP), RO 


This wi 


than 127. 


RO, R2 


RO, R2 


k + 1/16 + 2*p(z) 


. 
’ 
o 
. 
e 
. 
o 
. 
. 
. 
. 
. 
. 
. 
. 
- 
’ 
. 
. 
. 
. 
. 
e 
. 


RO/R1 <== f 
R2 <== index to INDEX table 
Re <= 1#2°3 


R4 <== 4 *(k + 1/16) 
R 


; Re will be multiplied by 2°3 b 


table references Like the Line below. 


The Linker will cause an error if 


() are used instead of () for these 


table references. 
R2/R3 <-- f - a (NOTE: 
atf 
RO/R1 <-- f + a 
R2/R3 <== 2 


ze(cO* + c2*z*2 + c4"z2*4), where the c's are chosen 
to minimize the absolute error of the approximation 


R1 <== 2°2 
RO <== c4#2*2 
RO <== c2 + c4e2*2 


RO <-=- c2ez*2 + c4e2*4 

RO/R1 <== c2e2z*2 + c422*4 
RO/R1 <== cO + c2#z2*2 + c4#2%4 
R2/R3 <-- 2°782*p( 242) 


Convert 2*7*(k + 1/16) to double 


t R2/R3 <== 2*7#Log2(x) 


Test for the possibility of overflow in the computation of 
l occur if the exponent of y plus the exponent of w 


ge 2 Cyslegeta)d. We begin by computing 


RO/R1 <-- y 


wl. 
is greater 


result is 
i.e. no roundoff error) 
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as FW 7 €F OA 94 EXTZ #7, #8, RO, =-(SP) ; biased e f 
80 BF A 18¢ 95 SUBW2 #°K80. (SPS S unbiesed exp of 
54 7 #=€F O18 38 EXTZ #7, #8, R2, RO ; biased exp of “Teo 2(x) 
80 8F Ag 186 9 SUB #*x80, ; unbiased exp o S. stogg(x) 
4 eS 1¢ 38 ADDL (SP)+, R4 ; unbiased exp of 2*7*log2(x)ty | 
54 O7F 8F Bi O1C4 9 CMPW #*X7F, RG ; largest unbiased exp possible is 127 
6 19 01C9 400 BLSS ss Y TIMES W1_OVER 
52 0 64 1CB «401 MULD RO, R 3 R2/R3 <e= 2*7#y*log2(x) 
ike 208 | 
1S He ; The next step in computing 2“Cy*log2(x)] is to write y*log2(x) as 
Ice 46 ; ytlog2(x) = I + j/16 + g/16, 
O1CE 408 ; where I is an integer, j is an integer between 0 and 15 inclusive, and 
Bite 409 ; g is a fraction in the interval (-172, 1/2) 
ge aie 
50 52 00004DC0 8F 41 OICE tig ADDF3 #*X4DC0, R2, RO : 3*2°5 is used in this truncation process 
3108 AF ; te avoid a possible normal ization | 
3 at co cur n r 
50 0000400 BF 42 IDE 418 SUBF -#*X4DC0, RO ROR <= cn MO) incate 
52 50 62 ODD 416 SUBD RO, R2 3 R2/R3 <--_2%7(g/16 
54 50 49 OQO1E0 417 CVTFW RO, R4 3: R4 <== 2*7(1 + j/16) in integer 
32. 1D O1ES) «6418 BVS EXCEPTION_1 ; Branch if ‘1! is too Large 
8 
DIED 4 1 : We can now compute 
OiED 4 5 : xtty = 2*Cy#log2(x)) = 2*C1 + j/16 + 9/16] 
OiED 4 3 : = (2°1)*CA*(B+1)] = 2*1*CA + A®B), where 
O1E5 427 : A = 2*(j/16) is obtained from the A_TABLE and B = 2*(g/16) - 1 is obtained 
Bice ? 8 ; bye min/max approximation whose coefficients compensate to the factor of | 
i 
FF25 CF 03 52 55 O1E5 a3 POLYF R2, #EXPLEN-1, EXPTAB ; RO <-- B = 2*(g/16) - 1 | 
52 54 FFFFFF8O 8F cB Bice 43 BICL3 #*XFFFFFF8O, R4, R2 3; R2 <== 2*3 * index into A_TABLE table 
52 52 FD 8F 9C OF $3 ROTL #-3, R2 RS 3; R2 <== index into A_TABLE table 
52 FESR CF4 ° Bite : 5 oN 5 ThaLetRe ~ R2 : fe yee = 2*(j/T6) | 
° ° “= At 
30 60 4 4 $ ADDD Re: RO 3; RO/R1 <-- A + AtB 
6 4 4 3 CVTOF RO, R 3 RO <--2*C(j + g)/16) 
54 gp7F 8F AB be 4 ICW @*X7F, RS : R4 = 2478 
0 54 AO C 440 ADDW = R4,_ RO > RO <== 212°C (j+g)/16] 
oo7F BF 650 «BI 9 OF 441 CMPW = RO, #*X7F ; test for over/under flow | 
07 15 0214 44g BLEQ EXCEPTION_2 > see what exception is if neg or = 0 
04 16 at RETURN: RET 3; otherwise return result in RO 
17 «445; 
Ve $68 ; Handlers for software detected over/underflow conditions follow 
17 448° | 
17 449 EXCEPTION 1: 
50 «(553 17 450 ISTF RO : if big ARG > 0 goto overflow | 
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TSSPOWRR = REAL ** REAL power routine 16-SEP-1984 04:25 VAX/VMS Macro v04-00 Pa 
or 886 OTSSPOWRR = REAL to REAL giving REAL res g SEP 1382 96:95 83 MTHRTL.SRCJOTSPOWRR.MAR; 1 - 


8 H 19 & BGEQ OVER 3 handler, otherwise go to 
0 1 1 4 “ UNDER 3 underflow handler 
1 455 EXCEPTION 2: 
54 if 1 454 TSTw R4 ; test sign of I; if I >= 0 
wf 1 ? ‘ BGEQ OVER i go to overflow handler 
457 ; 
$28 ; ytwl would have caused a hardware pers floating omnes error. If y<0, 
459 ; then we should return a result of 0 since result = 2*(y*(wltw2)). Note, 
460 ; y can not be zero. 
rhe 3 
£88 Y_TIMES_W1_OVER: 
30 53 464 TSTF RO ; if y <0 no overflow is needed 
1 14 465 BGTR OVER ; overflow 
$08 
de 
; Underflow; if user has FU set, signal error. Always return 0.0 
50 04 6 UNDER: CLRL RO ; RO = result. 
08 04 aD 06 «€1 BBC #6, SFSW_SAVE_PSW(FP), 2$ 
; has user enabled floating underflow? 
7E OO°8F QA MOVZBL #MTHSK_FLOUNDMAT, -(SP) ; trap code for hardware floatin 
0 underflow. Convert to MTH$_FLOUNDMAT 


(32-bit VAX-11 exception code) 
signal condition 
return 


O00000000'GF 01 FB CALLS #1, G*MTHSS$SSIGNAL 


2s: RET 


; Signal floating overflow, return reserved operand, -0.0 


OVER: MOVZBL #MTHSK_FLOOVEMAT, -(SP) 
ASHQ 


OO'SF 9A 
#15, #T, RO 


7E Move overflow code to stack 
50 01 OF 79 


; RO = result = reserved operand -0.0. 
RO will be copied to signal mechanism 
vector (CHF$L_MCH_RO/R1) so it can be 
fixed up by any error handler 


00000000'GF 01 FB signal condition 


CALLS #1, G*MTHSSSIGNAL 
RET 


WO NOOCOOM BODO VOOM | NMUMUMUIUMUIUTN = 2 eNOOD 


NO 
WN O OONOUE WN O ODVNOU EWI OO 


TIAA UMA UMUMAAAMAMUMAUAeetttteteteeee 
OOO 0000000 0009 09 09 000909 JINN NNN 


OOOCOCOCOCOCOCOOOOCOCCCoOO 


rr 


SS 


return - RO restored from CHFSL_MCH_RO/R1 


Vv 


OTSSPOWRR = REAL ** REAL power routine 16-SEP-1984 :04:25 VAX/VMS Macro v04-00 Page 
Symbol table , pat ets 9 94:88? MTHRTL.SRCJOTSPOWRR.MAR; 1 ° 
ACMASK = af 
A_TABLE e 02 
BASE = 4 
C R 02 
C z 43F 
C s 3 439 
DEF INED 142 R 0 
EVAL_LOG2 0 154 R 8 
EXCEPTION_1 17 R 
EXCEPTION 2 8 R 0 
EXPLEN = 8900000 
= 
EXPTAB 8000130 R 
INDEX 0000000 R 
MTHSS$SIGNAL teneeree 


x 

MTHSK_FLOOVEMAT seeeeeee x 

MTHSK-FLOUNDMAT teeeeeee x 

MTHSK~UNDEXP eererere § xX 
TS$POw 


Coo OOOCOOCOOCOO 


MPM NMNMOCOOCOCHNoT 


0 RR 90000120 RG 
E 00000 
00000216 R 
SF$W_SAVE_PSW = 00000 
FINED 1 LR 
Y_TIMES_W1_OVER 000003 1 R 


PSECT name Allocation PSECT No. Attributes 

» 4S « 00000000 < 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS 90000000 ( 0.) O1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

_OTSSCODE 00000248 (¢ 584.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
jc nneemeeen 
; Performance indicators H 

Phase Page faults CPU Time Elapsed Time 

Initialization 31 0: £00.07 0:00:00.81 

Command processing 113 8: :00. § 88: 4.49 

Pass 124 : 1. :00: 3 i 

Symbol table sort :00:00.04 0:00:00.04 

ass 9 :00:01.17 0: * 4.40 

Symbol table output :00: °. 3 0:00:00.0 

Psect synopsis output :00:00. 0:00:00.0 

Cross-reference output :00: - 3: :00.0 

Assembler run totais 37 0:00:03. :00:16.4 


The working set Limit was 900 pages. 
9218 bytes (19 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 53 non-local and 1 local symbols. 
source Lines were read in Pass 1, produc ing 15 object records in Pass 2. 
mac 


pages of virtual memory were used to define ros. 


K 9 
vane Recre Run Statistics ey ee eee "E78 at 94:99:87 YATARTE . Cae OT SPCURR. MAR: 1 ee tg) 


bee wen eee ee ree ewe ae wr msc e wea 


! Macro Library statistics ! 


oe 


Macro Library name Macros defined 
_S255SDUAZ8: [SYSLIBISTARLET.MLB;2 a eae de gf 
88 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/D1SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSPOWRR/OBJ=OBJ$:OTSPOWRR MSRC$:MTHJACKET/UPDATE=(ENHS$:MTHJACKET) +MSRC 
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